Amiga Format CD 33/Amiga Format AFCD33 (Issue 117, Dec 1998).iso/+system+/tools/virus/xtruder/install

Text File | 1998-09-07 | 6KB | 295 lines

; *******************************************************************
;
; $VER: Install 3.6 (5.7.97)
;
; Install script for Xtruder copyright © 1995-1997 Martin Wulffeld
;
; *******************************************************************

(set old_level @user-level)
(set @default-dest "")

(set default_lang 256)

(set #bad-kick
(cat "You must at least have Kickstart 2.04 to install Xtruder!"
))

(set #copying-bootblockbb    "\nCopying Bootblock.brainfile to L:...")
(set #copying-bootblock        "\nCopying Bootblock.library 3.1 to LIBS:...")
(set #copying-fileid        "\nCopying FileID.library 7.10 to LIBS:...")
(set #copying-filevirus        "\nCopying filevirus.library 2.12 to LIBS:...")
(set #copying-reqtools        "\nCopying reqtools.library 38.1436 to LIBS:...")
(set #copying-unpack        "\nCopying unpack.library 42.71 to LIBS:...")
(set #copying-xfdlib        "\nCopying xfdmaster.library 37.6 to LIBS:...")
(set #copying-xtruderlib    "\nCopying xtruder.library 37.2 to LIBS:...")
(set #copying-xtruderexe    "\nCopying Xtruder executable...")
(set #copying-documentation    "\nCopying Xtruder documentation...")
(set #copying-regfiles        "\nCopying registration files...")
(set #copying-catalogs        "\nCopying catalogs...")
(set #copying-rexxscripts    "\nCopying rexx scripts...")
(set #creating-xfd            "\nCreating directory\n\nLIBS:xfd\n\nfor external decrunchers...")
(set #copying-xfdfiles        "\nCopying external decrunchers\nfor xfdmaster.library...")
(set #select-dest            "Please select the path where you want to install Xtruder. A drawer named Xtruder will be created there.")
(set #select-destguide        "Please select the alternative path where you want to install the Xtruder documentation. It has already been installed along with the main program.")
(set #select-destrexx        "Please select the path where you want to install the Rexx scripts. A drawer named Xtruder will be created there.")
(set #select-language       "Which languages should be installed?")

;=============================================================================
; Make sure we are running under a 2.04 ROM

(if (< (/ (getversion) 65536) 37)
(
    (abort #bad-kick)
))

;=============================================================================

;*** Required libraries

(copylib
    (prompt #copying-bootblockbb)
    (help @copylib-help)
    (source "L/Bootblock.brainfile")
    (dest "L:")
    (confirm)
)

(copylib
    (prompt #copying-bootblock)
    (help @copylib-help)
    (source "Libs/Bootblock.library")
    (dest "LIBS:")
    (confirm)
)

(copylib
    (prompt #copying-fileid)
    (help @copylib-help)
    (source "Libs/FileID.library")
    (dest "LIBS:")
    (confirm)
)

(copylib
    (prompt #copying-filevirus)
    (help @copylib-help)
    (source "Libs/filevirus.library")
    (dest "LIBS:")
    (confirm)
)

(copylib
    (prompt #copying-reqtools)
    (help @copylib-help)
    (source "Libs/reqtools.library")
    (dest "LIBS:")
    (confirm)
)

(copylib
    (prompt #copying-unpack)
    (help @copylib-help)
    (source "Libs/unpack.library")
    (dest "LIBS:")
    (confirm)
)

(copylib
    (prompt #copying-xfdlib)
    (help @copylib-help)
    (source "Libs/xfdmaster.library")
    (dest "LIBS:")
    (confirm)
)

(copylib
    (prompt #copying-xtruderlib)
    (help @copylib-help)
    (source "Libs/xtruder.library")
    (dest "LIBS:")
    (confirm)
)

(set xfdokay
    (makedir "LIBS:xfd"
        (prompt #creating-xfd)
        (help @makedir-help)
        (confirm)
    )
)

(if xfdokay
    (copyfiles
        (prompt #copying-xfdfiles)
        (help @copyfiles-help)
        (source "Libs/xfd")
        (pattern "#?")
        (dest "LIBS:xfd/")
        (confirm)
    )
)

;*** Xtruder executable

(set programdir
    (tackon
        (askdir
            (prompt #select-dest)
            (help @askdir-help)
            (default "SYS:")
            (newpath)
        )
        "Xtruder"
    )
)

(set @default-dest programdir)

(copyfiles
    (prompt #copying-xtruderexe)
    (source "Xtruder")
    (dest programdir)
    (infos)
)

;*** Backup rexx script to Xtruder dir for backup

(copyfiles
    (prompt #copying-rexxscript)
    (source "")
    (dest programdir)
    (pattern "Rexx#?")
)

;*** Copy Catalogs to Xtruder dir for backup

(copyfiles
    (prompt #copying-catalogs)
    (source "")
    (dest programdir)
    (pattern "Catalogs#?")
)

;*** Copy registration files

(copyfiles
    (prompt #copying-regfiles)
    (source "")
    (dest programdir)
    (pattern "Registration#?")
)

;*** Documentation files

; Backup

(copyfiles
    (prompt #copying-documentation)
    (source "")
    (dest programdir)
    (pattern "Documentation#?")
)

; Ask if documentation should be installed elsewhere

(set tempdocdir
    (tackon
        programdir
        "Documentation"
    )
)

(set docdir
    (askdir
        (prompt #select-destguide)
        (help @askdir-help)
        (default tempdocdir)
        (newpath)
    )
)

(copyfiles
    (prompt #copying-documentation)
    (source "Documentation/Xtruder.guide")
    (dest docdir)
    (infos)
)

;*** Rexx scripts

(set rexxdir
    (tackon
        (askdir
            (prompt #select-destrexx)
            (help @askdir-help)
            (default "REXX:")
            (newpath)
        )
        "Xtruder"
    )
)

(copyfiles
    (prompt #copying-rexxscripts)
    (source "Rexx")
    (pattern "#?")
    (dest rexxdir)
)

;*** Install catalog

(if (exists "SYS:Locale")
(
    (if (exists "LOCALE:")
    (
        (set lang (askoptions (prompt #select-language)
                                (help #which-language-help)
                                (choices
                                    "Dansk"
                                    "Deutsch"
                                    "Français"
                                    "Italiano"
                                    "Nederlands"
                                    "Norsk"
                                    "Suomi"
                                    "Svenska"
                                    "English")
                                (default default_lang)
                    )
        )

        (set n 0)
        (while
            (set language (select n
                                "dansk"
                                "deutsch"
                                "français"
                                "italiano"
                                "nederlands"
                                "norsk"
                                "suomi"
                                "svenska"
                                "")
            )
        (
            (if (IN lang n)
            (
                (if (< n 9)
                (
                    (makedir (cat "LOCALE:Catalogs/" language))

                    (copyfiles (source (cat "Catalogs/" language))
                        (dest (cat "LOCALE:Catalogs/" language))
                        (all)
                    )
                ))
            ))
            (set n (+ n 1))
        ))
    ))
))

(exit "Please reboot! Some older versions of the installed files might be present in memory."
)